inherited frVVOD_AKTA_SV: TfrVVOD_AKTA_SV
  BorderStyle = bsDialog
  Caption = #1042#1074#1086#1076' '#1076#1072#1085#1085#1099#1093' '#1072#1082#1090#1072' '#1089#1074#1077#1088#1082#1080
  ClientHeight = 372
  ClientWidth = 531
  Position = poMainFormCenter
  OnShow = FormShow
  ExplicitWidth = 537
  ExplicitHeight = 404
  PixelsPerInch = 96
  TextHeight = 13
  inherited pTable: TPanel
    Width = 531
    Height = 334
    ExplicitWidth = 531
    ExplicitHeight = 334
    inherited gbTable: TcxGroupBox
      Align = alTop
      ExplicitWidth = 523
      ExplicitHeight = 169
      Height = 169
      Width = 523
      object Label1: TLabel
        Left = 13
        Top = 16
        Width = 53
        Height = 14
        Caption = #1051#1080#1094#1077#1074#1086#1081':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object labNOM: TDBText
        Left = 74
        Top = 16
        Width = 65
        Height = 17
        DataField = 'NOM_ABON'
        DataSource = dmProc.dsPROSM_LIC
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 142
        Top = 16
        Width = 114
        Height = 14
        Caption = #1044#1072#1090#1072' '#1079#1072#1082#1083'.'#1076#1086#1075#1086#1074#1086#1088#1072':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object labDAT_DOG: TDBText
        Left = 262
        Top = 16
        Width = 83
        Height = 17
        DataField = 'DATADOG'
        DataSource = dmProc.dsPROSM_LIC
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label3: TLabel
        Left = 13
        Top = 40
        Width = 31
        Height = 14
        Caption = #1060#1048#1054':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object labFIO: TDBText
        Left = 72
        Top = 39
        Width = 257
        Height = 18
        DataField = 'FIO'
        DataSource = dmProc.dsPROSM_LIC
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label4: TLabel
        Left = 13
        Top = 63
        Width = 39
        Height = 14
        Caption = #1040#1076#1088#1077#1089':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object labADRES: TDBText
        Left = 72
        Top = 63
        Width = 257
        Height = 18
        DataField = 'ADRES'
        DataSource = dmProc.dsPROSM_LIC
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label5: TLabel
        Left = 13
        Top = 87
        Width = 148
        Height = 14
        Caption = #1055#1088#1077#1076#1099#1076#1091#1097#1072#1103' '#1076#1072#1090#1072' '#1089#1074#1077#1088#1082#1080':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object labDAT_SV: TDBText
        Left = 170
        Top = 88
        Width = 68
        Height = 18
        DataField = 'D_SVER'
        DataSource = dsVVOD_AKTA_SV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label6: TLabel
        Left = 244
        Top = 87
        Width = 131
        Height = 14
        Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1077' '#1087#1088#1080' '#1089#1074#1077#1088#1082#1077':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object labPOK_SV: TDBText
        Left = 383
        Top = 87
        Width = 68
        Height = 18
        DataField = 'POK_AKT'
        DataSource = dsVVOD_AKTA_SV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label7: TLabel
        Left = 13
        Top = 112
        Width = 141
        Height = 14
        Caption = #1044#1072#1090#1072' '#1087#1086#1089#1083#1077#1076#1085#1077#1081' '#1086#1087#1083#1072#1090#1099':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object labDAT_OPL: TDBText
        Left = 170
        Top = 112
        Width = 68
        Height = 18
        DataField = 'DAT_OPL'
        DataSource = dsVVOD_AKTA_SV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label8: TLabel
        Left = 244
        Top = 112
        Width = 126
        Height = 14
        Caption = #1050#1086#1085#1077#1095#1085#1086#1077'  '#1087#1086#1082#1072#1079#1072#1085#1080#1077':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object labPOK_KON: TDBText
        Left = 387
        Top = 113
        Width = 68
        Height = 18
        DataField = 'KONP'
        DataSource = dsVVOD_AKTA_SV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 13
        Top = 137
        Width = 137
        Height = 14
        Caption = #1054#1087#1083#1072#1095#1077#1085#1085#1086#1077' '#1087#1086#1082#1072#1079#1072#1085#1080#1077':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object labPOK_USL: TDBText
        Left = 170
        Top = 137
        Width = 68
        Height = 18
        DataField = 'POK_USL'
        DataSource = dsVVOD_AKTA_SV
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clNavy
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
    end
    object gbVVOD_DANN: TcxGroupBox
      AlignWithMargins = True
      Left = 4
      Top = 179
      Align = alTop
      TabOrder = 1
      Height = 149
      Width = 523
      object Label11: TLabel
        Left = 13
        Top = 16
        Width = 73
        Height = 14
        Caption = #1044#1072#1090#1072' '#1089#1074#1077#1088#1082#1080':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label12: TLabel
        Left = 13
        Top = 44
        Width = 207
        Height = 14
        Caption = #1057#1087#1086#1089#1086#1073' '#1089#1085#1103#1090#1080#1103' '#1087#1086#1082#1072#1079#1072#1085#1080#1081' '#1089#1095#1077#1090#1095#1080#1082#1072':'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label13: TLabel
        Left = 13
        Top = 74
        Width = 212
        Height = 14
        Caption = #1055#1086#1082#1072#1079#1072#1085#1080#1077' '#1089#1095#1077#1090#1095#1080#1082#1072' '#1085#1072' '#1076#1072#1090#1091' '#1089#1074#1077#1088#1082#1080': '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 13
        Top = 105
        Width = 79
        Height = 14
        Caption = #1055#1088#1080#1084#1077#1095#1072#1085#1080#1077': '
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
      end
      object dtpDAT_SVER: TcxDateEdit
        Left = 92
        Top = 14
        ParentFont = False
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -12
        Style.Font.Name = 'Tahoma'
        Style.Font.Style = []
        Style.IsFontAssigned = True
        TabOrder = 0
        OnKeyDown = dtpDAT_SVERKeyDown
        Width = 103
      end
      object edPOK_SCH: TEdit
        Left = 231
        Top = 72
        Width = 98
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 1
        OnKeyDown = edPOK_SCHKeyDown
      end
      object cbSPOSOB_SN: TDBLookupComboBox
        Left = 231
        Top = 44
        Width = 183
        Height = 22
        DropDownRows = 25
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        KeyField = 'KOD_HC'
        ListField = 'NAIM_KOD'
        ListSource = dmProc.dsSPOSOB_SN
        ParentFont = False
        TabOrder = 2
        OnKeyDown = cbSPOSOB_SNKeyDown
      end
      object edPrim: TEdit
        Left = 98
        Top = 102
        Width = 316
        Height = 22
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -12
        Font.Name = 'Tahoma'
        Font.Style = []
        ParentFont = False
        TabOrder = 3
        OnKeyDown = edPrimKeyDown
      end
    end
  end
  inherited pEdit: TPanel
    Top = 334
    Width = 531
    Height = 0
    ExplicitTop = 334
    ExplicitWidth = 531
    ExplicitHeight = 0
    inherited gbEdit: TcxGroupBox
      ExplicitWidth = 523
      ExplicitHeight = 2
      Height = 2
      Width = 523
    end
  end
  inherited pUPR: TPanel
    Top = 334
    Width = 531
    Height = 38
    ExplicitTop = 334
    ExplicitWidth = 531
    ExplicitHeight = 38
    object btSave: TcxButton
      Left = 4
      Top = 6
      Width = 114
      Height = 25
      Action = SAVE
      TabOrder = 0
      Glyph.Data = {
        26040000424D2604000000000000360000002800000012000000120000000100
        180000000000F0030000C40E0000C40E00000000000000000000CAD6DBCAD6DB
        CAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6
        DBCAD6DBCAD6DBCAD6DBCAD6DBCAD6DB0000CCD8DDCCD8DDCCD8DDCCD8DDCCD8
        DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCCD8DDCC
        D8DDCCD8DDCCD8DD0000CFDADFCFDADFCFDADFA7A7A773737373737359595959
        59594B4B4B4B4B4B3D3D3D303030303030303030A7A7A7CFDADFCFDADFCFDADF
        0000D2DCE0D2DCE0A7A7A7633600CDCDCDE6E6E6C1C1C1C1C1C1CDCDCDF0F0F0
        EDEDEDE6E6E6A7A7A7333333303030A7A7A7D2DCE0D2DCE00000D4DEE2633600
        633600633600DADADAE6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6E6DADA
        DACB8C44633600303030303030D4DEE20000D7E0E4633600CB8C44633600D9A7
        7DD9A77DD9A77DD9A77DD9A77DCB8C44CB8C44CB8C44CB8C44CB8C446336007F
        5B00303030D7E0E40000DAE2E6633600D9A77D633600D9A77DD9A77DD9A77DD9
        A77DD9A77DD9A77DCB8C44CB8C44CB8C44CB8C44633600CB8C44303030DAE2E6
        0000DCE4E7633600D9A77D633600D9A77DD9A77DD9A77DD9A77DD9A77DD9A77D
        D9A77DCB8C44CB8C44CB8C44633600CB8C443D3D3DDCE4E70000DFE6E9633600
        D9A77D633600AA3F2A6336006336006336006336006336006336006336006336
        00CB8C44633600CB8C444B4B4BDFE6E90000E1E8EB633600D9A77D6336009A9A
        9AAAFFFF99F8FF99F8FF99F8FF99F8FF99F8FF99F8FF99F8FF633600633600CB
        8C444B4B4BE1E8EB0000E4EAED633600D9A77D633600AAFFFFCDCDCDA7A7A7A7
        A7A7A7A7A7A7A7A7A7A7A7A7A7A7C1C1C199F8FF633600CB8C444B4B4BE4EAED
        0000E7ECEF633600D9A77D7F5B00AAFFFFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFF
        AAFFFFAAFFFFAAFFFF99F8FF7F5B00CB8C444B4B4BE7ECEF0000E9EEF0633600
        D9A77D7F5B00AAFFFFCDCDCDA7A7A7A7A7A7A7A7A7A7A7A7A7A7A7A7A7A7C1C1
        C199F8FF7F5B00CB8C444B4B4BE9EEF00000ECF0F2633600D9A77D989898AAFF
        FFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFFAAFFFF99F8FF989898CB
        8C44595959ECF0F20000EFF2F4633600D9A77DA6A6A6EFF2F4CDCDCDCB8C44CB
        8C44A7A7A7A7A7A7A7A7A7A7A7A7C1C1C199F8FFA6A6A6D9A77D666666EFF2F4
        0000F1F4F6A7A7A76336007F5B00F1F4F6F1F4F6AAFFFFAAFFFFAAFFFFAAFFFF
        AAFFFFAAFFFFAAFFFFAAFFFF7F5B00633600A7A7A7F1F4F60000F4F6F7F4F6F7
        F4F6F7A7A7A76336006336006336006336006336006336006336006336006336
        006336009A9A9AF4F6F7F4F6F7F4F6F70000F7F8F9F7F8F9F7F8F9F7F8F9F7F8
        F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7F8F9F7
        F8F9F7F8F9F7F8F90000}
    end
  end
  object ActionList1: TActionList
    Left = 481
    Top = 58
    object SAVE: TAction
      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100'(F5)'
      ShortCut = 116
      OnExecute = SAVEExecute
    end
    object actESC: TAction
      Caption = 'actESC'
      ShortCut = 27
      OnExecute = actESCExecute
    end
  end
  object dsetVVOD_AKTA_SV: TIBCQuery
    SQLInsert.Strings = (
      'INSERT INTO AKT_SVER'
      
        '  (NOM_ABON, POK_AKT, D_SVER, KOD_OP, DAT_WOD, PRIM, KOD_SN, SPO' +
        'S_SN)'
      'VALUES'
      
        '  (:NOM_ABON, :POK_AKT, :D_SVER, :KOD_OP, :DAT_WOD, :PRIM, :KOD_' +
        'SN, :SPOS_SN)')
    SQLDelete.Strings = (
      'DELETE FROM AKT_SVER'
      'WHERE'
      '  NOM_ABON = :Old_NOM_ABON')
    SQLUpdate.Strings = (
      'UPDATE AKT_SVER'
      'SET'
      
        '  NOM_ABON = :NOM_ABON, POK_AKT = :POK_AKT, D_SVER = :D_SVER, KO' +
        'D_OP = :KOD_OP, DAT_WOD = :DAT_WOD, PRIM = :PRIM, KOD_SN = :KOD_' +
        'SN, SPOS_SN = :SPOS_SN'
      'WHERE'
      '  NOM_ABON = :Old_NOM_ABON')
    SQLRefresh.Strings = (
      
        'SELECT NOM_ABON, POK_AKT, D_SVER, KOD_OP, DAT_WOD, PRIM, KOD_SN,' +
        ' SPOS_SN FROM AKT_SVER'
      'WHERE'
      '  NOM_ABON = :NOM_ABON')
    SQLLock.Strings = (
      'SELECT NULL FROM AKT_SVER'
      'WHERE'
      'NOM_ABON = :Old_NOM_ABON'
      'FOR UPDATE WITH LOCK')
    Connection = dmOne.IBDBOne
    SQL.Strings = (
      
        'select SA.NOM_ABON, SA.FIO, (SP.NAI_PUNKT||'#39' '#39'||VU.NAI_VU||UL.NA' +
        'I_UL||'#39' '#1076#1086#1084' '#8470#39'||coalesce (SA.DOM,'#39#39')||'#39' ,'#1082#1074' '#8470#39'||coalesce (SA.KB,' +
        #39#39')) AS ADRES,'
      'A.*, SA.DATADOG, L.DAT_OPL, L.KONP,L.POK_USL'
      
        'from AKT_SVER A, SPR_ABON SA, SP_PUNKT SP, SP_VU VU, SP_UL UL,LI' +
        'CEV L'
      'where A.NOM_ABON=:NOM'
      
        'AND A.D_SVER=(select MAX(A.D_SVER)  from AKT_SVER A where A.NOM_' +
        'ABON=:NOM)'
      'AND A.NOM_ABON=SA.NOM_ABON'
      'AND SA.KOD_PUNKT=SP.KOD_PUNKT'
      'AND SA.KOD_VU=VU.KOD_VU'
      'AND SA.KOD_UL=UL.KOD_UL'
      'AND A.NOM_ABON=L.NOM_ABON')
    Left = 453
    Top = 17
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'NOM'
      end
      item
        DataType = ftUnknown
        Name = 'NOM'
      end>
  end
  object dsVVOD_AKTA_SV: TIBCDataSource
    DataSet = dsetVVOD_AKTA_SV
    Left = 487
    Top = 18
  end
end
